home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / misc / elcheapofax.lha / Hook.asm < prev    next >
Assembly Source File  |  1993-04-01  |  427b  |  18 lines
  1.     XDEF    _HookEntry
  2.  
  3.     section text,code
  4. h_SubEntry EQU    12
  5.  
  6. _HookEntry:
  7.     move.l    a6,-(sp)
  8.     move.l    a1,-(sp)                ; push message packet pointer
  9.     move.l    a2,-(sp)                ; push object pointer
  10.     move.l    a0,-(sp)                ; push hook pointer
  11.     move.l    h_SubEntry(a0),a0       ; fetch C entry point ...
  12.     jsr    (a0)                    ; ... and call it
  13.     lea    12(sp),sp               ; fix stack
  14.     move.l    (sp)+,a6
  15.     rts
  16.  
  17.     end
  18.